home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / proglib.sit / Resource Library / card_8253.txt < prev    next >
Text File  |  1989-05-28  |  5KB  |  243 lines
  1. -- card: 8253 from stack: in
  2. -- bmap block id: 8483
  3. -- flags: 4000
  4. -- background id: 8134
  5. -- name: Associate
  6. ----- HyperTalk script -----
  7. on initAssoc from
  8.   global doingcard, StackName
  9.  
  10.   put from into doingcard
  11.  
  12.   put "put background field" && quote & "Name" & quote && "of" && doingcard && "into card field Name" into tmp
  13.   do tmp
  14.   put "put background field" && quote & "AssocList" & quote && "of" && doingcard && "into card field AssocList" into tmp
  15.   do tmp
  16.  
  17.   ResHandle "type", StackName
  18.   put SortLines(the result) into card field "resTypes"
  19.   put "" into card field "resType"
  20.   put "" into card field "Select"
  21.   put "" into card field "resNames"
  22. end initAssoc
  23.  
  24.  
  25. -- part 1 (field)
  26. -- low flags: 00
  27. -- high flags: 0007
  28. -- rect: left=28 top=226 right=308 bottom=90
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 0
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: resTypes
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   global StackName
  40.  
  41.   put ClickLine() into elem
  42.   put line ClickLine() of card field "resTypes" into tmp
  43.   if tmp <> "" then
  44.     put tmp into card field "resType"
  45.     ResHandle "list", StackName, tmp
  46.     put SortLines(the result) into card field "resNames"
  47.     put "" into card field "Select"
  48.   end if
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 2 (field)
  54. -- low flags: 00
  55. -- high flags: 0002
  56. -- rect: left=97 top=258 right=279 bottom=145
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: resType
  65.  
  66.  
  67. -- part 3 (field)
  68. -- low flags: 00
  69. -- high flags: 0007
  70. -- rect: left=153 top=40 right=124 bottom=355
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: AssocList
  79.  
  80.  
  81. -- part 4 (field)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=10 top=40 right=59 bottom=141
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Name
  93.  
  94.  
  95. -- part 5 (field)
  96. -- low flags: 00
  97. -- high flags: 0007
  98. -- rect: left=152 top=225 right=310 bottom=352
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: resNames
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   put ClickLine() into elem
  110.   put line ClickLine() of card field "resNames" into tmp
  111.   if tmp <> "" then
  112.     put tmp into card field "Select"
  113.   end if
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 6 (field)
  119. -- low flags: 00
  120. -- high flags: 0002
  121. -- rect: left=152 top=192 right=211 bottom=337
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 0
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Select
  130.  
  131.  
  132. -- part 7 (button)
  133. -- low flags: 00
  134. -- high flags: 8003
  135. -- rect: left=222 top=133 right=185 bottom=284
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 4895 / 4895
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Add
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   if card field "Select" <> "" then
  147.     put card field "resType" && card field "Select" & return after card field "AssocList"
  148.   else
  149.     answer "You must select something first!" with "Oops"
  150.   end if
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 8 (button)
  156. -- low flags: 00
  157. -- high flags: 8003
  158. -- rect: left=370 top=56 right=109 bottom=432
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 2162 / 2162
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Update
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   global doingcard
  170.  
  171.   put card field "AssocList" into tmp
  172.   go to doingcard
  173.   put tmp into background field "AssocList"
  174.  
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 9 (button)
  180. -- low flags: 00
  181. -- high flags: 8003
  182. -- rect: left=370 top=115 right=168 bottom=432
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 2162 / 2162
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: No Update
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   global doingcard
  194.  
  195.   go to doingcard
  196.  
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 10 (button)
  202. -- low flags: 00
  203. -- high flags: 8003
  204. -- rect: left=83 top=78 right=100 bottom=144
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: Clear
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   put "" into card field "AssocList"
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part contents for card part 4
  221. ----- text -----
  222. ResHandle
  223.  
  224. -- part contents for card part 1
  225. ----- text -----
  226. ALRT
  227. CURS
  228. DITL
  229. DLOG
  230. ICON
  231. snd 
  232. STR#
  233. XCMD
  234. XFCN
  235.  
  236.  
  237. -- part contents for card part 3
  238. ----- text -----
  239. ALRT RH_rename.a
  240. DLOG RH_rename.d
  241. DITL RH_rename.a
  242. DITL RH_rename.d
  243.